home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 January / january_2000.iso / Site Building / ASPEdit / _SETUP.1 / Calender.asp < prev    next >
Encoding:
Text File  |  1998-12-22  |  3.7 KB  |  129 lines
  1. <%@ LANGUAGE="VBScript" %>
  2. <%
  3. Option Explicit
  4.  
  5. Dim dtToday 
  6. dtToday = Date()
  7.  
  8. Dim dtCurViewMonth ' First day of the currently viewed month
  9. Dim dtCurViewDay ' Current day of the currently viewed month
  10.  
  11. %>
  12.  
  13.  
  14. <% REM This section defines functions to be used later on. %>
  15. <% REM This sets the Previous Sunday and the Current Month %>
  16. <% 
  17.  
  18. '--------------------------------------------------
  19.    Function DtPrevSunday(ByVal dt)
  20.       Do While WeekDay(dt) > vbSunday
  21.          dt = DateAdd("d", -1, dt)
  22.       Loop
  23.    DtPrevSunday = dt
  24.    End Function
  25. '--------------------------------------------------
  26.  
  27. %>
  28.  
  29. <%REM Set current view month from posted CURDATE,  or
  30. ' the current date as appropriate.
  31.  
  32. ' if posted from the form
  33. ' if prev button was hit on the form
  34.    If InStr(1, Request.Form, "subPrev", 1) > 0 Then
  35.       dtCurViewMonth = DateAdd("m", -1, Request.Form("CURDATE"))
  36. ' if next button was hit on the form
  37.    ElseIf InStr(1, Request.Form, "subNext", 1) > 0 Then
  38.       dtCurViewMonth = DateAdd("m", 1, Request.Form("CURDATE"))
  39. ' anyother time
  40.       Else
  41.          dtCurViewMonth = DateSerial(Year(dtToday), Month(dtToday), 1)
  42.    End If
  43. %>
  44.  
  45.  
  46. <% REM --------BEGINNING OF DRAW CALENDAR SECTION-------- %>
  47. <% REM This section executes the event query and draws a matching calendar. %>
  48. <%
  49.    Dim iDay, iWeek, sFontColor
  50. %>
  51.  
  52. <HTML>
  53. <HEAD>
  54. </HEAD>
  55. <BODY>
  56.  
  57.        <BR>
  58.  
  59. <CENTER>
  60.        <FORM NAME="fmNextPrev" ACTION="calendar.asp" METHOD=POST>
  61.        <TABLE CELLPADDING=3 CELLSPACING=0 WIDTH="95%" BORDER=2 BGCOLOR="#99CCFF" BORDERCOLORDARK="#003399" BORDERCOLORLIGHT="#FFFFFF">
  62.           <TR VALIGN=MIDDLE ALIGN=CENTER>
  63.              <TD COLSPAN=7>
  64.              <TABLE CELLPADDING=0 CELLSPACING=0 WIDTH="100%" BORDER=0>
  65.                 <TR VALIGN=MIDDLE ALIGN=CENTER>
  66.                    <TD WIDTH="30%" ALIGN=RIGHT>
  67.                       <INPUT TYPE=IMAGE NAME="subPrev" SRC="Left.gif" BORDER=0 WIDTH=18 HEIGHT=20 HSPACE=0 VSPACE=0>
  68.                    </TD>
  69.                    <TD WIDTH="40%">
  70.                       <FONT FACE="Arial" COLOR="#000000">
  71.                       <B><%=MonthName(Month(dtCurViewMonth)) & " " & Year(dtCurViewMonth)%></B>
  72.                      </FONT>
  73.                    </TD>
  74.                    <TD WIDTH="30%" ALIGN=LEFT>
  75.                       <INPUT TYPE=IMAGE NAME="subNext" SRC="Right.gif" BORDER=0 WIDTH=18 HEIGHT=20 HSPACE=0 VSPACE=0>
  76.                    </TD>
  77.                 </TR>
  78.              </TABLE>
  79.              </TD>
  80.           </TR>
  81.  
  82.           <TR VALIGN=TOP ALIGN=CENTER BGCOLOR="#000099">
  83.  
  84.           <% For iDay = vbSunday To vbSaturday %>
  85.              <TH WIDTH="14%"><FONT FACE="Arial" SIZE="-2" COLOR="#FFFFFF"><%=WeekDayName(iDay)%></FONT></TH>
  86.           <%Next %>
  87.  
  88.          </TR>
  89.  
  90. <%
  91.    dtCurViewDay = DtPrevSunday(dtCurViewMonth)
  92.   
  93.    For iWeek = 0 To 5
  94.       Response.Write "<TR VALIGN=TOP>" & vbCrLf
  95.  
  96.       For iDay = 0 To 6
  97.          Response.Write "<TD HEIGHT=50>"
  98.  
  99.          If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
  100.             If dtCurViewDay = dtToday Then
  101.                sFontColor = "#FF3300"
  102.  
  103.             Else
  104.                sFontColor = "#000000"
  105.             End If
  106.  
  107.          '---- Write day of month
  108.  
  109.             Response.Write "<FONT FACE=""Arial"" SIZE=""-2"" COLOR=""" & sFontColor & """><B>"
  110.             Response.Write Day(dtCurViewDay) & "</B></FONT><BR>"
  111.    
  112.          '---Else
  113.             '---Response.Write "รก"
  114.          End If
  115.  
  116.          Response.Write "</TD>" & vbCrLf
  117.          dtCurViewDay = DateAdd("d", 1, dtCurViewDay)
  118.       Next
  119.       Response.Write "</TR>" & vbCrLf
  120.    Next
  121. %>
  122. <%REM --------END OF DRAW CALENDAR SECTION-------- %>
  123. </TABLE>
  124. <INPUT TYPE=HIDDEN NAME="CURDATE" VALUE="<%=dtCurViewMonth%>">
  125. </FORM>
  126. </CENTER>
  127. </BODY>
  128. </HTML>
  129.